home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / avwyyt1a / winfunct.bas < prev   
Encoding:
BASIC Source File  |  1999-08-29  |  11.9 KB  |  279 lines
  1. Attribute VB_Name = "B"
  2. '----------------------------------------------------------------------------------------------------------------
  3. Rem Here are all the Declarations for the project
  4. Rem Note: I am not responsible for any screw-ups or Conflicts you may cause to your
  5. Rem Friends or other people by using the following :)
  6. Rem Everything here was made and written ▀y: Mike Canejo
  7. '----------------------------------------------------------------------------------------------------------------
  8. Option Explicit
  9.  
  10. Public Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
  11. Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
  12. Public Declare Function SetFocusAPI Lib "user32" Alias "SetFocus" (ByVal hwnd As Long) As Long
  13. Public Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
  14. Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long
  15. Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Integer, ByVal lParam As Long) As Long
  16. Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
  17. Public Declare Function GetTopWindow Lib "user32" (ByVal hwnd As Long) As Long
  18. Public Declare Function ExitWindowsEx& Lib "user32" (ByVal uFlags As Long, ByVal dwReserved As Long)
  19. Public Declare Function GetCurrentProcess Lib "kernel32" () As Long
  20. Public Declare Function SendMessageLong& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
  21. Public Declare Function GetCurrentProcessId Lib "kernel32" () As Long
  22. Public Declare Function SendMessageByNum& Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long)
  23. Public Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
  24. Public Declare Function SendMessageByString Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long
  25. Public Declare Function RegisterServiceProcess Lib "kernel32" (ByVal dwProcessId As Long, ByVal dwType As Long) As Long
  26.  
  27. Public Const WM_LBUTTONDBLCLICK = &H203
  28. Public Const WM_MOUSEMOVE = &H200
  29. Public Const WM_RBUTTONUP = &H205
  30. Public Const WM_LBUTTONDOWN = &H201
  31. Public Const WM_LBUTTONUP = &H202
  32. Public Const WM_LBUTTONDBLCLK = &H203
  33. Public Const WM_RBUTTONDOWN = &H204
  34. Public Const WM_RBUTTONDBLCLK = &H206
  35. Public Const WM_CHAR = &H102
  36. Public Const WM_CLOSE = &H10
  37. Public Const WM_USER = &H400
  38. Public Const WM_COMMAND = &H111
  39. Public Const WM_GETTEXT = &HD
  40. Public Const WM_GETTEXTLENGTH = &HE
  41. Public Const WM_KEYDOWN = &H100
  42. Public Const WM_KEYUP = &H101
  43. Public Const WM_MOVE = &HF012
  44. Public Const WM_SETTEXT = &HC
  45. Public Const WM_CLEAR = &H303
  46. Public Const WM_DESTROY = &H2
  47. Public Const WM_SYSCOMMAND = &H112
  48. Public Const SWP_NOSIZE = &H1
  49. Public Const SWP_NOMOVE = &H2
  50. Public Const SW_MINIMIZE = 6
  51. Public Const SW_HIDE = 0
  52. Public Const SW_MAXIMIZE = 3
  53. Public Const SW_SHOW = 5
  54. Public Const SW_RESTORE = 9
  55. Public Const SW_SHOWDEFAULT = 10
  56. Public Const SW_SHOWMAXIMIZED = 3
  57. Public Const SW_SHOWMINIMIZED = 2
  58. Public Const SW_SHOWMINNOACTIVE = 7
  59. Public Const SW_SHOWNOACTIVATE = 4
  60. Public Const SW_SHOWNORMAL = 1
  61. Public Const HWND_TOP = 0
  62. Public Const HWND_TOPMOST = -1
  63. Public Const HWND_NOTOPMOST = -2
  64. Public Const EWX_LOGOFF = 0
  65. Public Const EWX_SHUTDOWN = 1
  66. Public Const EWX_REBOOT = 2
  67. Public Const EWX_FORCE = 4
  68. Public Const RSP_SIMPLE_SERVICE = 1
  69. Public Const RSP_UNREGISTER_SERVICE = 0
  70. Public Const SPI_SCREENSAVERRUNNING = 97
  71. Public Const STANDARD_RIGHTS_REQUIRED = &HF0000
  72. Public Const FLAGS = SWP_NOSIZE Or SWP_NOMOVE
  73. Public Function CenterForm(TENProg As Form)
  74. TENProg.Top = (Screen.height * 0.95) / 2 - TENProg.height / 2
  75. TENProg.Left = Screen.width / 2 - TENProg.width / 2
  76. End Function
  77. Public Function StayOnTop(TheForm As Form)
  78. Dim SetWinOnTop As Long
  79. SetWinOnTop = SetWindowPos(TheForm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS)
  80. End Function
  81. Public Function NotOnTop(frm As Form)
  82. Dim SetWinOnTop As Long
  83. SetWinOnTop = SetWindowPos(frm.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS)
  84. End Function
  85. Public Function TimeOUT(HesitateTime)
  86. Dim Hesitator As Long
  87. Hesitator& = Timer
  88. Do While Timer - Hesitator& < Val(HesitateTime)
  89. DoEvents
  90. Loop
  91. End Function
  92. Public Function HideTaskBar()
  93. Dim Handle As Long
  94. Handle& = FindWindow("Shell_TrayWnd", vbNullString)
  95. ShowWindow Handle&, 0
  96. End Function
  97. Public Function ShowTaskBar()
  98. Dim Handle As Long
  99. Handle& = FindWindow("Shell_TrayWnd", vbNullString)
  100. ShowWindow Handle&, 1
  101. End Function
  102. Public Function DestroyTaskBar()
  103. Dim Handle As Long
  104. Handle& = FindWindow("Shell_TrayWnd", vbNullString)
  105. SendMessage Handle&, WM_DESTROY, 0, 0
  106. End Function
  107. Public Function HideStartButton()
  108. Dim Handle As Long, FindClass As Long
  109. FindClass& = FindWindow("Shell_TrayWnd", "")
  110. Handle& = FindWindowEx(FindClass&, 0, "Button", vbNullString)
  111. ShowWindow Handle&, 0
  112. End Function
  113. Public Function ShowStartButton()
  114. Dim Handle As Long, FindClass As Long
  115. FindClass& = FindWindow("Shell_TrayWnd", "")
  116. Handle& = FindWindowEx(FindClass&, 0, "Button", vbNullString)
  117. ShowWindow Handle&, 1
  118. End Function
  119. Public Function DestroyStartButton()
  120. Dim Handle As Long, FindClass As Long
  121. FindClass& = FindWindow("Shell_TrayWnd", "")
  122. Handle& = FindWindowEx(FindClass&, 0, "Button", vbNullString)
  123. SendMessage Handle&, WM_DESTROY, 0, 0
  124. End Function
  125. Public Function HideTaskBarClock()
  126. Dim FindClass As Long, FindParent As Long, Handle As Long
  127. FindClass& = FindWindow("Shell_TrayWnd", vbNullString)
  128. FindParent& = FindWindowEx(FindClass&, 0, "TrayNotifyWnd", vbNullString)
  129. Handle& = FindWindowEx(FindParent&, 0, "TrayClockWClass", vbNullString)
  130. ShowWindow Handle&, 0
  131. End Function
  132. Public Function ShowTaskBarClock()
  133. Dim FindClass As Long, FindParent As Long, Handle As Long
  134. FindClass& = FindWindow("Shell_TrayWnd", vbNullString)
  135. FindParent& = FindWindowEx(FindClass&, 0, "TrayNotifyWnd", vbNullString)
  136. Handle& = FindWindowEx(FindParent&, 0, "TrayClockWClass", vbNullString)
  137. ShowWindow Handle&, 1
  138. End Function
  139. Public Function DestroyTaskBarClock()
  140. Dim FindClass As Long, FindParent As Long, Handle As Long
  141. FindClass& = FindWindow("Shell_TrayWnd", vbNullString)
  142. FindParent& = FindWindowEx(FindClass&, 0, "TrayNotifyWnd", vbNullString)
  143. Handle& = FindWindowEx(FindParent&, 0, "TrayClockWClass", vbNullString)
  144. SendMessage Handle&, WM_DESTROY, 0, 0
  145. End Function
  146. Public Function HideTaskBarIcons()
  147. Dim FindClass As Long, Handle As Long
  148. FindClass& = FindWindow("Shell_TrayWnd", "")
  149. Handle& = FindWindowEx(FindClass&, 0, "TrayNotifyWnd", vbNullString)
  150. ShowWindow Handle&, 0
  151. End Function
  152. Public Function ShowTaskBarIcons()
  153. Dim FindClass As Long, Handle As Long
  154. FindClass& = FindWindow("Shell_TrayWnd", "")
  155. Handle& = FindWindowEx(FindClass&, 0, "TrayNotifyWnd", vbNullString)
  156. ShowWindow Handle&, 1
  157. End Function
  158. Public Function DestroyTaskBarIcons()
  159. Dim FindClass As Long, Handle As Long
  160. FindClass& = FindWindow("Shell_TrayWnd", "")
  161. Handle& = FindWindowEx(FindClass&, 0, "TrayNotifyWnd", vbNullString)
  162. SendMessage Handle&, WM_DESTROY, 0, 0
  163. End Function
  164. Public Function HideProgramsShowingInTaskBar()
  165. Dim FindClass As Long, FindClass2 As Long, Parent As Long, Handle As Long
  166. FindClass& = FindWindow("Shell_TrayWnd", "")
  167. FindClass2& = FindWindowEx(FindClass&, 0, "ReBarWindow32", vbNullString)
  168. Parent& = FindWindowEx(FindClass2&, 0, "MSTaskSwWClass", vbNullString)
  169. Handle& = FindWindowEx(Parent&, 0, "SysTabControl32", vbNullString)
  170. ShowWindow Handle&, 0
  171. End Function
  172. Public Function ShowProgramsShowingInTaskBar()
  173. Dim FindClass As Long, FindClass2 As Long, Parent As Long, Handle As Long
  174. FindClass& = FindWindow("Shell_TrayWnd", "")
  175. FindClass2& = FindWindowEx(FindClass&, 0, "ReBarWindow32", vbNullString)
  176. Parent& = FindWindowEx(FindClass2&, 0, "MSTaskSwWClass", vbNullString)
  177. Handle& = FindWindowEx(Parent&, 0, "SysTabControl32", vbNullString)
  178. ShowWindow Handle&, 1
  179. End Function
  180. Public Function DestroyProgramsShowingInTaskBar()
  181. Dim FindClass As Long, FindClass2 As Long, Parent As Long, Handle As Long
  182. FindClass& = FindWindow("Shell_TrayWnd", "")
  183. FindClass2& = FindWindowEx(FindClass&, 0, "ReBarWindow32", vbNullString)
  184. Parent& = FindWindowEx(FindClass2&, 0, "MSTaskSwWClass", vbNullString)
  185. Handle& = FindWindowEx(Parent&, 0, "SysTabControl32", vbNullString)
  186. SendMessage Handle&, WM_DESTROY, 0, 0
  187. End Function
  188. Function HideWindowsToolBar()
  189. Dim FindClass1 As Long, FindClass2 As Long, Parent As Long, Handle As Long
  190. FindClass1& = FindWindow("BaseBar", vbNullString)
  191. FindClass2& = FindWindowEx(FindClass1&, 0, "ReBarWindow32", vbNullString)
  192. Parent& = FindWindowEx(FindClass2&, 0, "SysPager", vbNullString)
  193. Handle& = FindWindowEx(Parent&, 0, "ToolbarWindow32", vbNullString)
  194. ShowWindow Handle&, 0
  195. End Function
  196. Public Function ShowWindowsToolBar()
  197. Dim FindClass1 As Long, FindClass2 As Long, Parent As Long, Handle As Long
  198. FindClass1& = FindWindow("BaseBar", vbNullString)
  199. FindClass2& = FindWindowEx(FindClass1&, 0, "ReBarWindow32", vbNullString)
  200. Parent& = FindWindowEx(FindClass2&, 0, "SysPager", vbNullString)
  201. Handle& = FindWindowEx(Parent&, 0, "ToolbarWindow32", vbNullString)
  202. ShowWindow Handle&, 1
  203. End Function
  204. Public Function DestroyWindowsToolBar()
  205. Dim FindClass1 As Long, FindClass2 As Long, Parent As Long, Handle As Long
  206. FindClass1& = FindWindow("BaseBar", vbNullString)
  207. FindClass2& = FindWindowEx(FindClass1&, 0, "ReBarWindow32", vbNullString)
  208. Parent& = FindWindowEx(FindClass2&, 0, "SysPager", vbNullString)
  209. Handle& = FindWindowEx(Parent&, 0, "ToolbarWindow32", vbNullString)
  210. SendMessage Handle&, WM_DESTROY, 0, 0
  211. End Function
  212. Public Function ScreenBlackOut(TheForm As Form)
  213. StayOnTop TheForm
  214. HideTaskBar
  215. HideWindowsToolBar
  216. TheForm.BorderStyle = 0
  217. TheForm.Caption = ""
  218. Screen.MousePointer = vbHourglass
  219. TheForm.BackColor = &H0&
  220. TheForm.BorderStyle = 0
  221. TheForm.height = Screen.height
  222. TheForm.width = Screen.width
  223. TheForm.Left = Screen.width - Screen.width
  224. TheForm.Top = Screen.height - Screen.height
  225. PreventFromClosing
  226. DisableCtrlAltDel
  227. End Function
  228. Public Function ScreenUnBlackOut(TheForm As Form)
  229. NotOnTop TheForm
  230. ShowTaskBar
  231. ShowWindowsToolBar
  232. TheForm.BorderStyle = 3
  233. TheForm.Caption = "Form"
  234. Screen.MousePointer = vbArrow
  235. TheForm.BackColor = &H8000000A
  236. TheForm.width = Screen.width / 2
  237. TheForm.height = Screen.height / 2
  238. TheForm.Left = Screen.width / 2 - TheForm.width / 2
  239. TheForm.Top = Screen.height / 2 - TheForm.height / 2
  240. UnPreventFromClosing
  241. EnableCtrlAltDel
  242. End Function
  243. Public Function PreventFromClosing()
  244. Dim process As Long
  245. process = GetCurrentProcessId()
  246. RegisterServiceProcess process, RSP_SIMPLE_SERVICE
  247. End Function
  248. Public Function UnPreventFromClosing()
  249. Dim process As Long
  250. process = GetCurrentProcessId()
  251. RegisterServiceProcess process, RSP_UNREGISTER_SERVICE
  252. End Function
  253. Public Function DisableCtrlAltDel()
  254. Dim ret As Integer
  255.  Dim pOld As Boolean
  256.  ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, pOld, 0)
  257. End Function
  258. Public Function EnableCtrlAltDel()
  259. Dim ret As Integer
  260.  Dim pOld As Boolean
  261.  ret = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, pOld, 0)
  262. End Function
  263. Public Function WINLogUserOff()
  264. ExitWindowsEx EWX_LOGOFF, 0
  265. End Function
  266. Public Function WINForceClose()
  267. ExitWindowsEx EWX_FORCE, 0
  268. End Function
  269. Public Function WINShutdown()
  270. ExitWindowsEx EWX_SHUTDOWN, 0
  271. ExitWindowsEx EWX_SHUTDOWN, 0
  272. ExitWindowsEx EWX_SHUTDOWN, 0
  273. End Function
  274. Public Function WINReboot()
  275. ExitWindowsEx EWX_REBOOT, 0
  276. ExitWindowsEx EWX_REBOOT, 0
  277. ExitWindowsEx EWX_REBOOT, 0
  278. End Function
  279.